home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / sh6x / sh69b.d64 / begriffe raten (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  77 lines
  1. 10 PRINT CHR$(147)
  2. 20 PRINT"***** BEGRIFFE RATEN ******
  3. 30 [153]
  4. 40 :
  5. 50 [143]-------- SPIELANLEITUNG----------
  6. 60 :
  7. 70 :
  8. 80 [153]"DER COMPUTER DENKT SICH EINE
  9. 90 PRINT"SPORTART.
  10. 100 [153]"SIE SOLLEN SIE ERRATEN.
  11. 110 PRINT
  12. 120 PRINT"SIE KOENNEN EINEN BUCHSTABEN
  13. 130 [153]"EINGEBEN, DANN ERSCHEINEN
  14. 140 PRINT"DIE GERATENEN BUCHSTABEN AN
  15. 150 [153]"DER RICHTIGEN STELLE.
  16. 160 PRINT
  17. 170 PRINT"HABEN SIE DAS WORT ERRATEN,
  18. 180 [153]"GEBEN SIE ES KOMPLETT EIN.
  19. 190 :
  20. 200 :
  21. 210 REM------- WORT AUSWAEHLEN -------
  22. 220 :
  23. 230 :
  24. 240 FOR X=1 TO INT(RND(0)*14)+1
  25. 250 READ U$
  26. 260 NEXT
  27. 270 :
  28. 280 H$=""
  29. 290 FOR X=1 TO LEN(U$)
  30. 300 H$=H$+"."
  31. 310 NEXT
  32. 320 :
  33. 330 :
  34. 340 REM-------- RATEVERSUCH ---------
  35. 350 :
  36. 360 PRINT:PRINT
  37. 370 PRINT"GESUCHT WIRD: ";H$
  38. 380 PRINT
  39. 390 INPUT"WAS RATEN SIE";L$
  40. 400 IF L$=U$ THEN 600
  41. 410 IF LEN(L$)>1 THEN 360
  42. 420 :
  43. 430 :
  44. 440 REM--------- HILFSWORT ----------
  45. 450 :
  46. 460 :
  47. 470 N$=""
  48. 480 FOR X=1 TO LEN(U$)
  49. 490 B$=MID$(U$,X,1)
  50. 500 C$=MID$(H$,X,1)
  51. 510 IF L$=B$ THEN N$=N$+L$:GOTO 530
  52. 520 N$=N$+C$
  53. 530 NEXT
  54. 540 H$=N$
  55. 550 GOTO 360
  56. 560 :
  57. 570 :
  58. 580 REM----  NOCH EINMAL ? ----------
  59. 590 :
  60. 600 PRINT
  61. 610 PRINT"SIE HABEN RICHTIG GERATEN
  62. 620 [153]
  63. 630 [153]"NOCH EINMAL (J/N) ?
  64. 640 GET A$: IF A$="" THEN 640
  65. 650 IF A$="J" THEN RUN
  66. 660 PRINT
  67. 670 PRINT"AUF WIEDERSEHEN
  68. 680 :
  69. 690 :
  70. 700 [143]------- WOERTERSPEICHER--------
  71. 710 :
  72. 720 :
  73. 730 [131] FUSSBALL,HOCKEY,GOLF,BOXEN
  74. 740 [131] TURNEN,SCHWIMMEN,HOCHSPRUNG
  75. 750 [131] SEGELN,FECHTEN,JUDO,BASKETBALL
  76. 760 [131] KEGELN,SCHIFAHREN,TENNIS
  77.